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ZTITL NALSPARPRR actfon routines for parsing parameters’ 


MODUL 
ANGUAGE (BL1IS$32) 
ADDRESSING _MODE (NONEXTERNAL=GENERAL), 
ADDRESSING” MODE | (EXTERNAL=GENERAL) , 
DE ENT = ‘'v04-0 


UMPwn— 


BEGIN 


LR RRAAA REAR AAAAEAAEAAAAAERREAAAAAEAAEAAAAAAEAAAAAAAARAAEAEEARAEEEAAEREEEE 
'@ & 
'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
= ALL RIGHTS RESERVED. * 
! & 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'‘® INCLUSION OF gH gt COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 
a 
oa 
* 
7 
® 
® 
% 
* 
* 
© 


ab nd 


~ TRANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a ORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'# DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH I 


LIT 
S$ NOT SUPPLIED BY DIGITAL. 
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FACILITY: DECnet-VAX V2.0 Network Management Listener 


ABSTRACT: 


This module contains action routines called by NPARSE to parse and 
store NICE ertity parameters. 


ENVIRONMENT: VAX/VMS Operating System 
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CREATION DATE: 8-Nov-1979 

‘3 MODIFIED BY: 

51 v03-007 MKP0007 Kathy Perko 25-Mar-1984 

26 Add support to convert area 0 to 1 for Phase IV NCPs 

3? and to the executor's area nM, Phase II] NCPs. 

2¢ v03-006 MKP0006 By Pe Sodona190F 
026 Change name of Nat SP AL CnEROST to the more general 
005 name, NMLSPRM_ CHKNODE.” Modify NMLSPRM_CIRC SOUNER to 
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‘ -e 16- se0-1984 99: 85:7 NML.SRCINMLPARPRM. g35: a af 

2 check the node to see if the executor. 

v03-005 MKP000S Kathy Perko -1983 

Add support to make hede permanent PO a coats 

é V03-004 MKP0004 meeey Perko 20-April-1983 
¢ Remove service functions from NML. 

V03-003 31-Aug-1982 
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Pix On 98 PROTOCOL ghOUP’ ch 1 to make sure right 
aD ins, of groups and dtes are in command. 


v03-002 MKP0002 Kath ree 21-June-1982 
Add routine to use NET s as entity ID if NICE 
command is SET X X-PROTOCOL "NE <net-id>. Otherwise, 
NML uses a null string LA sneceete the active network. 
Also, add a routine t e KNOWN qualifiers are 
used only with ALL tlee" fs ~PROTOCOL GROUPS). 


v03-001 MKP0001 Kathy Perko 16-June-1982 
Add routine to parse Yehe circuit parameter, owner. 


v02-004 MKP0003 Kathy Per 23-Feb-1982 
NDS -PROTOCOL GROUP stanante with DTE IDs Included. This 
routine concatenates a root entity with a sub entity 
to form the entity id. Used when the ACPs data base keeps 
the entities in a hierarchical form. Also, delete the routine, 
NMLSPRM_CHK_PROTOCOL. 


v02-003 Se athy Perko 15-Dec-1981 
Change name NMLSPRS HK_PROTOCOL to NMLSPRM_ CHK PROTOCOL 
to be consistent with routine names in this module. 


v02-002 MKP0001 Kathy Perko 19-Nov-1981 
Add parameter Mas: thy check for X.25 Protocol module. 


v02-001 LMK0001 Len Kawell 27-Jul-1981 
Remove Line name thes m5 as NETACP handles it now. 
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v04- Declarations ‘ 7? 12 aah 99386378 ENML.SRC NMLPARPRM.B32; 


98 1 ZSBTTL ‘Declarations’ 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


nmlSprm_chkefi, 

nal $prm_chkesi, 
nmlSprm_circ_owner, 
nal$prm_err, 
nmlS$prm_evtsrctyp, 
nml$prm_evtsource, 
nml$prm_evtclass, 
nmlS$prm_evtmsktyp, 
nm $prm_evtmask, 
nal $prm_chkeve, 
nml$prm_save_node, 
nml$prm_set_net, 
nml$prm_qual_format, 
nml$prm_channels; 


INCLUDE FILES: 


LIBRARY 'LIB$:NMLLIB.L32"; 

LIBRARY 'SHRLIB$:NMALIBRY.L32°: 
LIBRARY "SYSS$LIBRARY:STARLET.L32'; 
! 


! EXTERNAL REFERENCES: 


Snml _extdef; 
cxTeRn, ROUTINE 
nm $c 


nml$fix_node_num, 
nml $getnodadr, 
nm $saveparam; 
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NML_NPARSE action routines for parsing paramete 1b-se -1984 24:5 
v04-000 NMLSPRM_CHECK Check parameter volue =? 137808- 1386 9958033 


1 ZSBTTL "NMLSPRM one ck Check parameter value’ 
GLOBAL ROUTINE AML 


7 
NML .. SRCJNMLPARPRM.B32; 


PRM_CHECK = 


4 
! FUNCTIONAL DESCRIPTION: 


This is a NPARSE action routine that checks a parameter value 
agetass its description in the parameter semantic table. If 
the parameter is valid, a descriptor entry is created. 


! FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 
NPARSE_BLOCK ipetoted to by AP) contains the parsed parameter data. 
NPASL_FLDCNT is the parameter Length. 
NPASL_FLDPTR is a pointer to the parameter in the received 


eersene buffer. 
NMLSGL_PRMCODE contains the index into the change parameter table 
(NAL$AB_CPTABLE). 


IMPLICIT OUTPUTS: 


If $e pereneter is valid then a Goscr ipter entry will be created for 
it in NMLSAW_PRM_DES and NMLS$GW_PRMDESCNT will be incremented. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 

SIDE EFFECTS: 
If the parameter fails the semantic check, an error message 
(NMASC_STS_PVA) is signalled. If the parameter Sener sores buffer 


is full thén a software error (NMASC_STS_MPR) is signalled with 
optional text to identify the error. 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
LOCAL 

oe ! Resultant message size 

PTR; ! Temporary parameter pointer 


: Add descriptor entry for this parameter. 


LEN = .NPARSE_BLOCK (NPASL_FLDCNTJ; 
PTR = .NPARSE_BLOCK CLNPASL_FLOPTRJ; 


NMLSCHKPRMVAL (.NMLSGL_PRMCODE, .LEN, .PTR); 


AX-11 Ol ieee v4.0- 4¢ Page 4 


S3 


SARS LAMA ten esses fr pacine reece tatedags ah H pak] thats tts at re 
: 4 07 NMLSSAVEPARAM (.NMLSGL_PRMCODE, .LEN, .PTR); 

; 1 03 NMLSGL_PRMCODE = 0; ' Reset parsing code 

1§ 1 RETURN NML$_STS_SUC 

: 215 18 END; ! End of NMLSPRM_CHECK 


-TITLE NMLSPARPRM NML NPARSE action routines for parsi 
ng paramete 

~IDENT \Vv04-000\ 

eEXTRN wil $68. EVTSACTYP 


-EXTRN NMLS$GW_ 


CHAN 
~EXTRN NMLSGL “LOGRASK NML$GQ_ENTSTRDSC 
EXT NML FER 


se 
ae 
» 
2 
La 
bad 
‘ 
sean 
m 
@ 
sss 
n 
nn 
m 
>] 


NM NAL SAB AB_PRMSEM 
-EXTRN NML$AB eatiat Nat AL_ENTINF TAB 


“EXTRN NMLSAW BRA Inet NAL SB, CMD_VER 
“EXTRN NMLSGB-ENTITY_COD 

*EXTRN Nat $GB~ ENTITY? FORAAT 

*EXTRN NALSGL “QUALIFTER_PST 

“EXTRN NMLS$GB~QUALIFIER~FORMAT 

“EXTRN NMLS$GBFUNCTION ~ 

“EXTRN NMLS$GB~INFO 


NML$GB_OPTIONS 
-EXTRN NAL $6L- =PRACODE 


TNALSCL -PRS_FLGS 


DESCN 
NM NAL ScuKPRAVAL 

"EXTRN NAL SERROR Ro, NM LSFIXIN NODE_NUM 
*EXTRN NALSEETNODAGR SAVEPARAM 


SCODES ,NOWRT ,2 
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NMLSPRM_CHECK Check parameter value 14-Sep-1984 0:15 NML.SRCINMLPARPRM.B32; 1 (3) 
001¢ .ENTRY NMLSPRM_CHECK, Save R2,R3,R4 : 0151 

4 00000006 00 3 $8 MOVAB NMLS$GL_PRMCODE, : 
3 10 AC D 00 MOVL JO(NPARSE BLOCK) LEN + 0203 
2 14 AC DO 0000D MOVL § 20(NPARSE“BLOCK), PTR : 0 04 
2 DD 0001 PUSHL PTR + 0206 

DD 0001 PUSHL LEN : 

4 DD 0001 PUSHL NMLSGL_PRMCODE : 

000000006 00 FB 0001 CALLS #3, NMCSCHKPRMVAL : 
DD 0001 PUSHL PTR + 0207 

DD PUSHL LEN ; 

4 DD PUSHL NMLSGL_PRMCODE ; 

000000006 00 3 FB CALLS #3, NMCSSAVEPARAM : 
4 D B €LAL NAL SCL _PRMCODE ; 9209 
50 1 00 D MOVL #1, R + 0211 
04 00030 RET : 0213 


; Routine Size: 49 bytes, Routine Base: $CODE$ + 0000 


Bo Be Se Se Se Se BF Se SESH Se SESE Se Se Se Se SH Se Se Se Se Se Ge SH Se Se Ge Ge Se Se Se Se Ge Se Se Se Se ee Ge Se Se Se Se Se Se Sess Se oe Se Se Se Se Se seas 
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yo%~000 NMLSPRM_OBJPRV Check object privilege Daranete 1 =36071 382 99°853 ENML.SRC NMLPARPRM.B32; ’ (4) 


ZSBTTL ‘NMLSPRM pe seny Check object privilege parameter value' 
GLOBAL ROUTINE AMLSPRM_OBJPRY = 


lo 
' FUNCTIONAL DESCRIPTION: 
This is_a NPARSE action routine that handles the object privilege 
mask. The mask is generotly @ quadword but only the lower longword 
is currently used by VMS. If this situation changes than this routine 
must also be changed. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS. 
NPARSE BLOCK ipo tated to by AP) contains the parsed parameter data. 
NPASL_FLDCNT is the parameter Length. 
NPASL_FLDPTR is a pointer to the parameter in the received 


persage buffer. 
NMLSGL_PRMCODE contains the index into the change parameter table 
(NALSAB_CPTABLE). 


IMPLICIT OUTPUTS: 


If the parameter is valid then a descriptor entry will be created for 
it im NMLSAW_PRM_DES and NMLSGW_PRMDESCNT will be incremented. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 

SIDE EFFECTS: 
If the parameter fails the semantic check, an error message 
(NMASC_STS_PVA) is signalled. If the parameter Goasr corer buffer 


is full then a software error (NMASC_STS_MPR) is signalled with 
optional text to identify the error. 
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BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
LOCAL 

MSGSIZE, ! Resultant message size 

PTR: ! Temporary parameter pointer 


: Add descriptor entry for this parameter. 
LEN = .NPARSE_BLOCK CNPASL_FLDCNT) - 1; 
IF .LEN GTRU 4 
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vOu~000 Teet’orivitess 5 op7198e 99:8 : ave 5 


NMLSPRM_OBJPRV Check ob privilege paramete 14-Sep-19 0:15 NML.SRCINMLPARPRM.B32; 1 (4) 
: 2746 7 THEN 
: be r LEN = 4; ! Maximum of four bytes 
: 27 74 PTR = .NPARSE_BLOCK CNPASL_FLDPTR] + 1; 
; t i NMLSSAVEPARAM” (.NMLSGL_PRMCODE, .LEN, .PTR); 
; 80 rt NMLSGL_PRMCODE = 0; ' Reset parsing code 
; 8 9 RETURN NML$_STS_SUC 
: 284 Hi END; ! End of NMLSPRM_OBJPRV 
0004 000 .ENTRY NMLSPRM_OBJPRV, Save R2 0215 
52 000000006 00 Hs 00 HOVAB NL SGL PRMCODE, R 
51 10 AC 1 ¢ 00 #1, 16TNPARSE_BLOCK), LEN 
04 1 01 00 CMPL , Ws 
ge 08 aan 
51 4 0D 1 MOVL. #4, LEN 0 
50 146 «AC gi C1 00016 1$ ADDL3 #1 (NPARSE_BLOCK), PTR 0274 
0 DD 0001 PUSHL PTR 0275 
51 OD 001 PUSHL LEN 
¢ DD 0001 PUSHL NMLSGL_PRMCODE 
000000006 00 02 FB 000 CALLS #3, NMCSSAVEPARAM 
62 D4 000 CLRL § NMLSGL_PRMCODE 0277 
50 01 D0 000 MOVL #1, RO 0279 
04 000 RET 0281 


3; Routine Size: 46 bytes, Routine Base: S$CODE$ + 0031 
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-000 NMLSPRM_STRCHK Check peremeter value= ° 1 739071 38e 99586378 ENAL . SRC NMLPARPRM.B32; 


1 ZSBTTL “‘NMLSPRM_STRCHK Check parameter value’ 
GLOBAL ROUTINE RMLSPRM_STRCHK = 


Vu 


'+ 


+ 

FUNCTIONAL DESCRIPTION: 
This is a NPARSE action routine that checks a parameter value 
opetaet its description in the parameter semantic table. f 
the parameter is valid, a descriptor entry is created. 

FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


hae ted to by AP) contains the parsed parameter data. 


BLOCK tpete 
ASL_FLDCNT is the parameter length. 


NPASL_FLDPTR is a pointer to the parameter in the received 


AST oy buffer. 
NMLSGL_PRMCODE contains the index into the change parameter table 
(NALSAB_CPTABLE). 


' 
' 
{ IMPLICIT OUTPUTS: 


SSSLERRANLSSS 


BIRAR GLO DS VO 


If Fhe porenster is valid then a Goose ierer entry will be created for 


it in NMLSAW_PRM_DES and NML$GW_PRMDESCNT will be incremented. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 
SIDE EFFECTS: 
If the pereneter fails the semantic check, an error messag 
T 
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e 
S_PVA) is signalled. If the per aneser descriptor buffer 
then a software error (NMASC_STS_MPR) is signalled with 


optional text to identify the error. 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
AL 
oe ! Resultant message size 
PTR: ! Temporary parameter pointer 


' 
: Add descriptor entry for this parameter. 


LEN = .NPARSE_BLOCK [NPASL_FLDCNT) - 1; 
PTR = .NPARSE~BLOCK CNPASL-FLOPTR) + 1; 


NMLSCHKPRMVAL (.NMLSGL_PRMCODE, .LEN, .PTR); 
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; Routine Size: 


H 
ction routines for parsing paramete 1 


a 
CHK Check parameter value 


AX-11 Bliss-32 V4.0-7 
NML.SRCINMLPARPRM.832 


3% 


NMLSSAVEPARAM (.NMLSGL_PRMCODE, .LEN, .PTR); 


NMLSGL_PRMCODE = 0; 
RETURN NML$_STS_SUC 


END; 

001C 
54 000000006 00 % 

10 «AC 1 ¢ 

14 AC ; $F 
¢ dD 
DD 
4 0D 
000000006 00 3 4, 
g DD 
64 0D 
000000006 00 03 FB 
64 D4 
50 01 DO 
04 


Routine Base: SCODES + OOSF 


! Reset parsing code 


! End of NMLSPRM_STRCHK 


NMLSPRM_STRCHK, Save R2,R3,R4 


TNPARSE_BLOCK), LEN 
(NPARSE-BLOCK), PTR 


Hee ee: 
Wrorononrororn 


LEN 
NMLS$GL_PRMCODE 
a3 NMCSCHKPRMVAL 


LEN 
NMLSGL_PRMCODE 
#3, NMCSSAVEPARAM 
Nt $GL_PRMCODE 
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yo%~000 NAL SPRM. CLEAR Remove entity peremeter rom dat 1 30071382 99:80:98 ENAL. SRE NMLPARPRM.B32; a 


ZSBTTL hat oe oem Remove entity parameter from data base (action routine)’ 
GLOBAL ROUTINE RAMLSPRM_CLEAR = 


lee 
FUNCTIONAL DESCRIPTION: 


This is a NPARSE action routine that removes a parameter from the 
specified entity by creating a parameter descriptor. 


i 
i 
a 
; FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 

; NPARSE argument block. 

; IMPLICIT OUTPUTS: 

A parameter d coioyer is added to NMLSAW_PRM_DES and the count 
: 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


WO Oenou 
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ww 


es 
(NALSGW_PRMDESCNT) is incremented. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
SiDE EFFECTS: 


If no room remains in the descriptor area then a software error 
(NMASC_STS_MPR) will be signalled indicating buffer overflow. 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
Add descriptor. 
" NMLSGL_PRMCODE = .NPARSE BLOCK CNPASL_PARAM]; 
NMLSSAVEPARAM (.NMLSGL_PRMCODE, 0, 0); 
NMLSGL_PRMCODE = 0; 
RETURN NML$_STS_SUC 
END; ! End of NMLSPRM_CLEAR 
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0004 00000 .ENTRY NMLSPRM_CLEAR, Save R2 : 0347 

53 000000906 00 3 MOVAB NMLSGL_PRMCODE, R2 ; 
6 AC MOVL § 32(NPARSE_BLOCK), NMLSGL_PRMCODE : 0386 
3 C CLRO 0s = (SP : 038 

62 DD 0000F PUSHL  NMLSGL_PRMCODE : 


7? rc 


VOL=000 «== NALSPRACELEAR' ‘Remove entity paremeter from dst iets Sep-198e 92:80:18 ENML+SREINALPARPRN: B30; tag 


000000006 00 1 ALLS #3, SSAVEPARAM 3 
63 4 18 et t Rac st PRACODE ; 0388 
* sg : 


; Routine Size: 30 bytes, Routine Base: SCODE$ + 0092 


; 398 0393 1 
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REMKEKE Check executor parameter group” le-Sep-1986 45:80:13 ENML/SRCINALPARPRA: B32 


ZSBTTL aan Seon CHKEXE Check executor parameter group’ 
GLOBAL ROUTINE RMLSPRM_CHKEXE = 


1oe 

} FUNCTIONAL DESCRIPTION: 
This is a NPARSE agtten routine that checks the parameter 
code to make sure it is in the same group (executor-only or 
node) as any previously specified parameters. 

FORMAL PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


33 
$e 


G0 tm 


i 

i 

i 

i 

i 

i 

i 

i 

i 

1 

t NPARSE BLOCK Spetated to by AP) contains the parsed parameter data. 
; NPASL_FLDPTR is a pointer code to the parameter in the received 
: message buffer. 

IMPLICIT OUTPUTS: 

: If the parameter is in the correct group then the flag for that 
} group will be set in NMLSGL_PRS_FLGS. 

' 

i 

i 

i 

4 

i 

' 

i 

1 

i 

i 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 
SIDE EFFECTS: 


If the parameter is in the wrong group shen on oes be prgneter 
eve, a e signalled. 
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grouping applicable error (NMA$ 


= 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


LOCAL 
MSGSIZE; 


If this is not the executor-only parameter group return error. 


40 If jNMLSGL_PRS_FLGS CNMLSV_PRS_NODPG) 

ri} NMLSERROR_2 (NMASC_STS_PGP 

43 . (.NPARSE~BLOCK CNPASL_FLDPTR])<0,16>); 

ry NMLSGL_PRS_FLGS CNMLSV_PRS_EXEPG] = 1; ! Set executor flag 
ci RETURN NML$_STS_SUC 

rk END; ! End of NMLSPRM_CHKEXE 


way SPARPRA NAL _NPAR noes on rput ines for poretag -Paranete 
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600000006 00 be F 

000000006 00 1 8 

50 01 8 


; Routine Size: 35 bytes, Routine Base: S$CODE$ + 0080 
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ENTRY NMLSPRM cHRE NS - Save nothing 
BB LSGL FLGS+1, 1$ 
MOVZWL i (NPARSE “peotk)” -(§P) 


Ss 
NMLSERR 
BISB2 #1, NMLSGL RORS. FLGS+1 
#1, RO 
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-32 
v04-000 NMLSPRM_CHKNOD Check node parameter group Sep-1 R 


V4 .0-76 
Air SREINAEPARPRN: b3e0% 


; 457 1 ZSBTTL "NMLSPRM CHKNOD Check node parameter group’ 

: ? 3 r 1 GLOBAL ROUTINE RMLSPRM_CHKNOD = 

: 46 1 !4¢ 

: ree tee i FUNCTIONAL DESCRIPTION: 

: 46 4 § 1 This is a NPARSE ageten routine that checks the executor parameter 
: 464 1! code to make sure it is in the same group (executor-only or 

; ret 4 8 } } node) as any previously specified parameters. 

: as? iff | FORMAL PARAMETERS: 

; ig 462 1 | NONE 

; 470 465 1! 

3; «471 64 1! IMPLICIT INPUTS: 

3 of6 465 1! 

3 67 0466 1! NPARSE_BLOCK Kpointed to by AP) contains the parsed parameter data. 
3 476 467 1! NPASL_FLDPTR is a pointer code to the parameter in the received 
3 of? rs : message buffer. 

: 47 0470 1 ! IMPLICIT OUTPUTS: 

; 478 0471 1! 

3; 479 0472 1! If the parameter is in the correct group then the flag for that 
g re + Beez : group will be set in NMLSGL_PRS_FLGS. 

: 48 0475 1 |! ROUTINE VALUE: 

; 48 0476 1 ! COMPLETION CODES: 

3 484 0477 1! 

; 4685 rth : Always returns NML$_STS_SUC. 

; 487 0480 i SIDE EFFECTS: 

: 489 0482 1! If the parameter is in the wrong group then an invalid parameter 
; 04835 1! grouping applicable error (NMASC_STS_PGP) will be signalled. 3 
3; «491 0484 1! 

3; 49 485 1 !e- 

; 49 rtf, 1 

3 4946 048 BEGIN 

3; 495 0488 

; $36 434 SNPA_ARGDEF ; ! Define NPARSE block reference 
: 498 491 LOCAL 

3; 499 983 MSGSIZE; 

: 501 rte If this is not the executor-only parameter group return error. 

; 08 3 ; IF NNLSGL_PRS_FLGS CNML$V_PRS_EXEPG] 

: 505 98 NMLSERROR_2 (NMASC_STS_PGP 

: 306 499 . (.NPARSEBLOCK CNPASL_FLDPTR])<0,16>); 

; 508 3 1 NMLSGL_PRS_FLGS CNMLS$V_PRS_NODPG] = 1; ! Set node fiag 

; Hf 3 ‘ RETURN NML$_STS_SUC 

: 512 505 END; ! End of NMLSPRM_CHKNOD 
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NMLSPRM_ HKN 5 Check node parameter group 


000 
OF 000000996 00 4 

E 4 6 
7E 1B OC 
000000006 00 Q2 F 
000000006 00 02 8 
50 01 B 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 00D3 
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ZSBTTL "NMLSPRM CHKREM Check remote node parameter group’ 
GLOBAL ROUTINE RMLSPRM_CHKREM = 
' 


14 
} FUNCTIONAL DESCRIPTION: 


* 
= 
on 
vw 
> 
z 
v 
~@ 
z 


<= 
& 
2 S 


ODONAULS WN OODONOUS 


SFUSISISISISIS 


This is a NPARSE action routine that checks the remote node parameter 
code to make sure it is in the same group (loop or remote 
node) as any previously specified parameters. 
i FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NPARSE BLOCK Soptnted to by AP) contains the parsed parameter data. 
NPASL_FLDPTR is a pointer code to the parameter in the received 
message buffer. 


IMPLICIT OUTPUTS: 


FOSSIL 


WW 


If the parameter is in the correct yrenp then the flag for that 
group will be set in NML$GL_PRS_FLGS. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 
SIDE EFFECTS: 


If the parameter is in the 7 ree then an invalid parameter 
grouping applicable error (NMASC_STS_PGP) will be signalled. 


i 
i 
i 
i 
! 
i 
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i 
i 
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i 
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i 
i 
i 
i 
i 
i 
i 
i 
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i 
t 
i 
i 
i 
' 
1 
— 
BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


LOCAL 
MSGSIZE; 


; If this is the loop node parameter group return error. 
IF .WMLSGL_PRS_FLGS CNML$V_PRS_LOOPG) 


NMLSERROR_2 (NMASC_STS_PNA 
. (.NPARSE-BLOCK CNPASL_FLDPTRI)<0,16>); 


NMLSGL_PRS_FLGS CNMLS$V_PRS_REMPG] = 1; ! Set remote node flag 
RETURN NML$_STS_SUC 
END; ! End of NMLSPRM_CHKREM 
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remote node parameter gro 


Sor198¢ 99:96:93 


rs pag gunned. Saye no 


OE 000000006 90 (NPARSE “BLOCK). 


ooo-Wo 
MK FMUAOW 


USER ROR 2 
fi, NALSCL PRS_FLGS+1 


SCODES + OOFS 
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NMLSPRM_CHKLOO Check loop node parameter group 14-Sep-1984 12:50:1 NML.SRCINMLPARPRM.B32; (10) 
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3; $71 1 ZSBTTL "NMLSPRM_CHKLOO Check loop node parameter group’ 

i br e4 1 GLOBAL ROUTINE RNLSPRHCHKLOO = . . — 

: 574 es 1 44 

3 Ne 288 : } FUNCTIONAL DESCRIPTION: 

: i] 268 1 i This is a NPARSE action routine that checks the Loop node parameter 
; 578 2 1! code to make sure it is in the same group (remote or loop 

; f 259 : node) as any previously specified parameters. 

: 581 af8 i FORMAL PARAMETERS: 

i fey) 

; 85 a3f8 | IMPLICIT INPUTS: 

: 587 578 1! NPARSE_ BLOCK (pointed to by AP) contains the parsed parameter data. 
; 588 0579 1! NPASL_FLDPTR is a pointer code to the parameter in the received 
: 4 p20 : } message buffer. 

; 291 058¢ ! IMPLICIT OUTPUTS: 

: 298 0584 1! If the parameter is in the correct group then the flag for that 
; age Bee? : group will be set in NMLSGL_PRS_FLGS. 

: 396 baB9 1 | ROUTINE VALUE: 

3 2o5 4 : COMPLETION CODES: 

: 238 Bene : ; Always returns NML$_STS_SUC. 

; 601 059¢ i SIDE EFFECTS: 

; $0 Bane 1 If the parameter is in the utone group then a eeeywter not 

: 604 595 1! applicable error (NMASC_STS_PNA) will be signalled. 

; 605 0596 1! 

; 606 0597 1 !-- 

3; 607 0598 1 

: tit 5444 BEGIN 

: 610 ah SNPA_ARGDEF ; ! Define NPARSE block reference 
BR BBE Bp 

; ei$ O63 NML$GB_OPTIONS : BBLOCK [1]; 

: 615 06 EXTERNAL LITERAL 

; 618 vet CPTSGK_PCNO_ASS; ! Loop node address 

: 618 609 BIND 

: $39 3i9 NODADR = UPLIT WORD (0) : WORD; 

; ? 1 ois : If this is the remote node parameter group return error. 

; 6 5 614 IF .NALSGL_PRS_FLGS CNML$V_PRS_REMPG) 

: 625 1 NMLSERROR_2 (NMASC_STS_PNA 

: 6 $ ei? ~" “. CNPARSE“BLOCK CNPASL_FLDPTRI)<0,16>); 
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; 3 4 ,  NMLSGL_PRS_FLGS CNMLSV_PRS_LOOPG] = 1; ! Set Loop node flag 

: 6 1 i If this is a SET/DEFINE (not CLEAR/ PURGE) operation then add a zero 
; ? 1 ¢ } node address to get around an idiosyncracy in NETACP. 

; 6 : 4 IF NOT .NMLSGB_OPTIONS CNMASV_OPT_CLEJ 

; 6 5 626 NMLSSAVEPARAM (CPTSGK_PCNO_AS$, 2, NODADR); 

; 6 68 RETURN NML$_STS_ SUC 

: 639 630 END; ! End of NMLSRM_CHKLOO 


-PSECT S$PLIT$,NOWRT,NOEXE,2 
0000 00000 P.AAA: .WORD 0 : 


NODADR= P.AAA 
.EXTRN CPT$GK_PCNO_ASS 


-PSECT S$CODES,NOWRT,2 


0000 00000 .ENTRY NMLSPRM_CHKLOO, Save nothing : 0563 
OE 000000006 00 02 f! 00002 #2, NMLSGL_PRS.FLGS+1, 1$ > 0614 
7E 4 BC 3¢ S004 MOVZWL @20(NPARSE-BLOCK), -(SP) + 0617 
7E 16 CE 0000E MNEGL #22, <(SP) + 0616 

000900006 00 08 Fe 00011 CALLS #2, NMLSERROR_2 : 
000000006 00 08 88 00018 1$ BISB2 #8. NMLSGL_PRS FLGS+1 : 0619 
15 000000006 00 06 EO OO1F BBS #6, NMLS$GB-OPTIONS, 2$ + 0624 
00000000" 00 9F 00027 PUSHAB NODADR + 0626 

02 DD 000 D PUSHL # : 

000000006 8F DD 000eF PUSHL #CPTS$GK_PCNO_ASS : 

000000006 00 03 FB 900 5 CALLS #3, NMLSSAVEPARAM : 
0 01 D0 0003C 2s: MOVL #1. RO + 0628 
04 0003F RET + 0630 


; Routine Size: 64 bytes, Routine Base: SCODES + 0118 
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3 ot} 1 ZSBTTL “‘NMLSPRM_CHKKNO Check for KNOWN entity option’ 

: ots ! GLOBAL ROUTINE RAMLSPRM_CHKKNO = 

3 644 1 !¢4 

: oF? 5 ' FUNCTIONAL DESCRIPTION: 

: nh 5 1 This is a NPARSE agtien routine Fhet checks the parameter 

: ote $ ! } code to make sure it is not applied to KNOWN parameters. 

; 650 : i FORMAL PARAMETERS: 

; 3 1 NONE 

; 6 g 1 

; ? : ¢ : IMPLICIT INPUTS: 

: $28 8 1/ NPARSE BLOCK Spe tnted to 7 AP) contains the parsed parameter data. 
; 65 1! NPASL_FLDPTR is a pointer code to the parameter in the received 
; O28 : 1! message buffer. 

: o23 oe} : } NMLSGB_ENTITY_FORMAT contains the entity format code. 

; 661 a} { IMPLICIT OUTPUTS: 

ORAS om 

; 665 0635 1 ' ROUTINE VALUE: 

5 56 1 ! COMPLETION CODES: 

3 $6? 0557 1! 

3 $38 934 : Always returns NML$_STS_SUC. 

; 670 0660 1 i SIDE EFFECTS: 

: 67 Bog 1 If KNOWN entities is specified then a parameter not applicable 
; or? 066 ’ : error (NMASC_STS_PNA) is signalled. 

; 675 5 1 ie 

3; «67 1 

; 67 BEGIN 

; 4 SNPA_ARGDEF ; ! Define NPARSE block reference 
; 681 P 

3 ose NML$GB_ENTITY_FORMAT : BYTE SIGNED; 

; LOCAL 

; 5 MSGSIZE; 

: 68 If KNOWN entities is selected then return error. 

; os IF .NMLSGB_ENTITY_FORMAT EQL NMASC_ENT_KNO 

: 691 NMLSERROR_2 (NMASC_STS_PNA 

; 69 . (.NPARSE~BLOCK CNPASL_FLDPTRI)<0,16>); 

; 694 RETURN NML$_STS_SUC 

; 6% END; ! End of NMLSPRM_CHKKNO 
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VO=000 " —-NALSPRACEHKRND Check for KNOUN entityooption artists 2:86:73 ENML:SRCONALPARPHM: B32: 1 Page 85 


00 eENTRY WNMLSPRM_CHKKNO, Save nothin : 
FF 8F 000000006 90 Mt cHPB NAL SGB_ENTITY FORMAT, m1 : 9638 
7E 14 BC 3C MOVZWL @ Q(NPARSE BLOCK), -(SP) + 0682 
7E 16 CE 0001 MNEGL #22, =(SP) + 0681 
000000006 90 02 FB 001 CALLS #2, NMLSERROR_2 : 
0 01 DO OOO1A 18: MOVL #1. RO > 0684 
04 0001 RET > 0686 


; Routine Size: 30 bytes, Routine Base: S$CODES + 0158 
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7 1 ZSBTTL "NMLSPRM_CHKEFI Check event logging parameter group’ 


GLOBAL ROUTINE RMLSPRM_CHKEFI = 


Se 


'e¢ 
FUNCTIONAL DESCRIPTION: 


This is a NPARSE ogeton routine that checks the parameter 
ode to make sure it is in the same group (event logging 


w 


nformation) as any previously speci 
FORMAL PARAMETERS: 


ied parameters. 


SAN IO oO 
wr 


Se 


RETURN NML$_STS_SUC 
END; ! End of NMLSPRM_CHKEFI 


; 1 ; 
3 1 : 
; 1: ; 
: 1} : 
; 1} : 
; 1} : 
; 1} : 
ww. 1! : 
3; © 1 } 3 
; 710 1} NONE : 
; (711 1! : 
; ne : } IMPLICIT INPUTS: : 
: 714 7 1/ NPARSE BLOCK Spatoted to by AP) contains the parsed parameter data. ; 
s 715 07046 1! NPASL_FLDPTR is a pointer code to the parameter in the received : 
; rig 144 : message buffer. : 
; ig 0707 { IMPLICIT OUTPUTS: 
: 720 0709 1: If the parameter is in the correct group then the flag for that ; 
; f 1 gry ' : group will be set in NMLSGL_PRS_FLGS. : 
: 58 Or 1 | ROUTINE VALUE: ; 
3 i : ar : COMPLETION CODES: : 
; $ grt ; Always returns NML$_STS_SUC. : 
i 728 $e | | SIDE EFFECTS: 
: 7 9 1/ If the parameter is in the urone group then an invalid parameter ; 
; g 1 4 , : grouping applicable error (NMASC_STS_PGP) will be signalled. ; 
ie ats oa 2 
i 239 oF 4 BEGIN ; 
if 0726 SNPA_ARGDEF ; ! Define NPARSE block reference : 
: 739 728 LOCAL 3 
; me i MSGSIZE; : 
: ve 4 ? If this is not the event logging information parameter group return error. : 
$264 RE $a -NMLSGL_PRS_FLGS CNMLSV_PRS_ESIPG) 

: Te 43¢ THEN WMLSERROR_2 (NMASC_STS_PGP 

; 749 g ~~" CNPERSE“BLOCK CNPASL_FLOPTRI)<0,16>); 

: 749 ? NMLSGL_PRS_FLGS CNMLSV_PRS_EFIPG] = 1; ! Set group flag 

; 7 

; 7 

; 7 
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000 ENTRY yee toy CHKEFI, Save nothin ; 
OE 000000006 90 04 } S BBC NMLSGL_PRS FiGS#1, 18 : 8S 
7 4 BC 3X A MOVZWL 53 (NPARSE BLOCK) , -(§P) : 07 
7 1B CE 00 MNEGL ‘ : 07 
000000006 02 F 1 CALLS #3, NMLSERROR ; 
000000006 0 88 00018 1$ BISB2 «#8, NALSEL PREFLGS#1 : 0738 
0 1 DO OO01F MOVL ; RO + 0740 
04 00022 RET t 0742 


; Routine Size: 35 bytes, Routine Base: SCODES + 0176 
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NAL SPRM_CHKE NML .SRCJINMLPARPRM 


ZSBTTL "NMLSPRM_CHKES] Check event sink parameter group’ 
GLOBAL ROUTINE RMLSPRM_CHKESI = 


'e¢ 


OOCCCOCCCOOCOOCOCOOCoOO 


OOCOCCOCOCSCOCCOCOCOSOOCOOCOCOOoCOO: 
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Check event sink parameter group 14-Sep- 


} FUNCTIONAL DESCRIPTION: 


This is a NPARSE ogtten routine that checks the parameter 
soge to make sure it is in the same group (event sink 
nformation) as any previously speci 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NPARSE BLOCK Spe tates to by AP) contains the parsed parameter data. 
NPASL_FLDPTR is a pointer code to the parameter in the received 
message buffer. 
IMPLICIT OUTPUTS: 


If the parameter is in the correct group then the flag for that 
group will be set in NMLSGL_PRS_FLGS. 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 
SIDE EFFECTS: 


If the parameter is in the urone group then an invalid parameter 
grouping apolicable error (NMASC_STS_PGP) will be signalled. 


ied parameters. 


BEGIN 
SNPA_ARGDEF ; 


LOCAL 
MSGSIZE; 


! Define NPARSE block reference 


If this is not the event sink information parameter group return error. 


IF .NMLSGL_PRS_FLGS CNMLSV_PRS_EF IPG) 


NMLSERROR_2 (NMASC_STS_PGP 
~" “ CNPARSE “BLOCK CNPASL_FLDPTRI)<0,16>); 


NMLSGL_PRS_FLGS CNMLSV_PRS_ESIPG] = 1; ! Set group flag 
RETURN NML$_STS_SUC 
END; ! End of NMLSPRM_CHKESI 


3589 


wxceasre 


3; Routine Size: 


WACSPAAERKEST Check Guone sink poranstee erace ifoseontggs 99:86:78 PARC SRP dwhtpakennsosee4 


.ENTRY NMLSPRM_CHKESI, Save nothin 
0 000000006 99 os et Boag #3. NMLSGL_PRS FLGS*1 . 
E 14 BC 3C OOO0A MOVZWL @20(NPARSE-BLOCK), -(SP) 
7E 1B CE 000 MNEGL #27, = 
000006 02 FB 0001 CALLS #2, NMLSERROR_2 
006 0 10 8 0018 1$: BISB2 #16, NMLSGL_PRS_FLGS+1 
01 p O1F MOV #1, RO 
4 00022 RET 


35 bytes, Routine Base: SCODES + 0199 
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‘GD C9 CD Cd Cd CD OD CP Od Cd OD CD. C9 CD OD CD CD CD CD C9 CO. CD. OD OD 


0000000 
SRVEAREAS 


RELEEESESE 
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SPRA CIRC GUNER Convert Cirralt oonee eeeee Jenkepn19RG $5:8653 Ar SRP WAE paRpan:o5007 


ZSBTTL ean CIRC_OWNER Convert circuit owner parameter(action routine)’ 
GLOBAL ROUTINE RAMLSPRM_CIRC_OWNER = 


NAL 
NAL 


'e4 
! FUNCTIONAL DESCRIPTION: 

This is a NPARSE action routine that is called when parsing a 
SET CIRCUIT OWNER command. It checks the node 1D supplied 
to make sure it specifies the executor ages (the only value 
currently allowed for OWNER). This routine saves the 
parameter as a set bit field since only one value is allowed. 


‘ 
1 
' 
| 
| 
! IMPLICIT INPUTS: 

; NPARSE orgusent block. 

: ASL_PARAM contains the error code. 
NPASL_FLDPTR points to the parameter in the message. 
| 
] 
i] 
1 
! 
1 
] 


ae | 


OO 


' ROUTINE VALUE: 

! COMPLETION CODES: 
Signals NML$_STS_PVA if the node id is not the executor's 
(for now, we only support the executor as a circuit owner). 


iS 8 a 


Otherwise returns success. 


PAA AATIRIRINIINITITIIID 


LOCAL 


en, 
node_addr : WORD, 
name_addr; 


WN 9 DONA UES WN @OOONOUS wry 


node_addr = 0; 

len = .(.nparse mee Cnpa$t_ idper3)<0.8>; 

IF .nparse_block Cnpa$l_param] EQL nma$c_pcno_add THE 
node_addr = .(.nparSe_block Cnpa$l_fldptrJ+1)<0,1 


name_addr = .nparse_block (Cnpa$l_fldptr] + 1; 


N 
6> 


hats 


0 Co C9 Cd Co G9 C9 Od OD C9 CO CD CD 
Www 


i If the node address in the NICE command matches the executor node 
: address then set the flag to indicate it. 


IF nml$chkexe (.nparse block CnpaSt_poren) -node_addr, .len, .mame_addr) THEN 
nml$saveparam (.nmU$gl_prmcode, |, UPLIT BYTE™(1)) 
nal$error_2 (nma$c_sts_pva, 
nma$c_pccT_own); 
nal$gl_prmcode = 0; ! Reset parsing code 


1 

1 

1 

1 

1 

1 

1 

4 

1 

j 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
RETURN nml$_sts_suc; 
END; 


SOOOOOSOOSOOOOSOOOOOOOOOOOOOOOOoOOOOOoOoO 


WONAOUL WI —OOOon 


FRELEESESE 


' Return status 
! End of NMLSPRM_CIRC_OWNER 


-PSECT SPLITS,NOWRT,NOEXE,2 
01 00002 P.AAB: .BYTE 1 


3; Routine Size: 


NML_NPARSE action routines for parsing paramete 
NMLSPRM_CIRC_OWNER Convert circuit owner param 


000001F6 


000000006 


000000006 


000000006 


Routine Base: 


9b 12:86:33 


SSvS 


ooo 


kasd 
wn 


= 
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SOAS WDOOSOOMO FViw1o Fornw 

WWM BM MW QO LON" OOwvOemronm 
MOANA & & & EWI NNNINININ 
ROPWOWD OVOMOWVWNDOSO LV yPronm 


SVI NOW "99 OM OWwWooIo-a— 


Fofsamn—-woor"wowo 
Sooooooooooo 
OoQoooooooooooooo 
OOOooooooooooooooo 


SCODES + 01BC 


SCODES ,NOWRT ,2 


NODE ADDR 
20(NPARSE_BLOCK), RO 
RO) LEN 

$e (NPARSE BLOCK), #502 
RO), NODE_ADDR 
NAME_ADDR 

NAME ADDR 

LEN 

NODE ADDR, =(SP) 
32(NPARSE BLOCK) 

#4, NMLSCAKEXE 

RO, 3$ 

P.AAB 


#1 
NMLSGL_PRMCODE 
#3, NMCSSAVEPARAM 


#1100, -(SP) 
#16, -(SP) 

#2, NMLSERROR. 2 
NMLSGL_PRMCODE 
#1, RO 


AX-11 Bliss-32 V4.0-74 
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083 
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0837 
0842 


0843 
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R Bul ld and signal orrer thet ion rou 13-88-1382 90: 8637 YNML.SRe NAL PARPRM_B32; 


ZSBTTL "NMLSPRM_ERR Build and signal error (action routine) 
GLOBAL ROUTINE AMLSPRM_ERR = 


z2v 
zs> 


144 
H FUNCTIONAL DESCRIPTION: 


This is a NPARSE action routine that signals parameter errors. 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NPARSE argument block. 


NPASL_PARAM contains the error code. 
NPASL_FLDPTR points to the parameter in the message. 


' 

‘ 

' 

i IMPLICIT OUTPUTS: 
' 

s 


Soscsccccse An 


0 
087 
087 NONE 
087 
87 ROUTINE VALUE: 
Hi COMPLETION CODES: 
bas Always returns success (NML$_STS_SUC). 
oat SIDE EFFECTS: 
O8g Error message is signalled. 
088 - 
tt 
3 BEGIN 
O8 SNPA_ARGDEF ; ! Define NPARSE block reference 
8 LOCAL 
; ERR_CODE ! Error code 
ERR-DETAIL; i Error detail 


ERR_CODE = .NVARSE_BLOCK CNPASL_PARAM]; ! Get error code 
Check for parameters to move in addition to error status. 


G9 60 60 Co 
SPSsSsessess 
MEW OOO 
AAA. AA AAAI AIAIPIPIPINIPIPIPODPINIPIPID a dt at tt ot 
. . 


38 ERR_DETAIL = ( 

9 SELECTONEU .ERR_CODE OF 

4 SET 
CNMASC_STS_PTY, 

1 NMASC~STS-PVA 

2 5 NMASC~STS-PNAJ: 

3 - (.NPARSE_BLOCK CNPASL_MSGPTR] = 2)<0,16,0>; ! Get detail code 
COTHERWISE): 


10 
NMLSPARPRM NML_NPARSE action routines for parsin ramete 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-74 P | 
v04-000 NMLSPRM_ERR Build and signal errer tact ion rou 1 ~8ep-19 4 9038648 NML.SRCINMLPARPRM.B32; age 439 


: 38) f 1; 

; 358 909 ; 

BH ee 

: 2 § aig NMLSERROR_2 (.ERR_CODE, .ERR_DETAIL); ! Signal error message 
4 . Bare RETURN NML$_STS_SUC ! Return success 

3; 9 0916 END; ! End of NMLSPRM_ERR 


0000 44 -ENTRY WNMLSPRM_ERR, Save nothin : 0851 
51 20 aC 00 0000 MOVL 32(NPARSE_BLOCK), ERR_CODE 3 0892 
FFFFFFEA 8F 51 D1 00005 CMPL ERR_CODE, #=-22 3 0900 
a. ied BEQL 1$ : 
FFFFFFFO 8F 51 01 OOO0F CMPL ERR_CODE, #-16 3 
09 13 4 9 BEQL 1$ 3 
FFFFFFFA 8F 51 D1 0001 CMPL ERR_CODE, #-6 3 
OA 12 OOO1F BNEQ $ 3 
50 08 AC Be 00021 1$: MOVL 8(NPARSE_BLOCK), RO 3; 0904 
50 FE AO 3C 00025 MOVZWL =-2(RO), ERR_DETAIL 3 
03 11 00029 BRB 3$ 3 
50 01 CE 00028 33: MNEGL #1, ERR_DETAIL 3 0908 
50 0D 000¢E $: PUSHL ERR_DETAIL : 0912 
51 DD 000 PUSHL ERR _CODE 3 
00000000G 00 02 FB 00032 CALLS #2, NMLSERROR_2 3 
50 01 dO 00039 MOVL #1, RO 3; 0914 
04 0003C RET ; 0916 
; Routine Size: 61 bytes, Routine Base: S$CODE$ + 021C 


; 931 


0917 +1 


; 3 918 1 

; 91 1 

3 5 9 1 

; 9 921 1 !4 
. = 9 ¢ 1! 
; 938 9 1 

; 939 904 1: 
; 940 925 1: 
> 941 9 § 1 / 
; 94 9 1 i 
; 94 9 1/ 
; 944 9 1: 
; 945 9 13 
: 946 931 1: 
: 947 09 § 1 i 
; 948 9 1 i 
; 949 Bee 13 
; 950 935 1: 
: 951 838 1 i 
3 226 0937 1: 
; 9 0938 1: 
; 954 0939 1! 
; 955 0940 1! 
; 956 0941 1! 
; 957 942 1 
; 958 943 1 
; 959 0944 1! 
; 960 0945 1! 
; 961 0946 1! 
3 206 0947 1! 
; 96 0948 1! 
: 964 0949 1! 
: 965 0950 1 i- 
: 966 0951 1 

3; 967 B33¢ se 

; 968 095 

; 969 0954 2 

; 970 0955 ! 
; 971 0956 ! 
: 97 0957 ! 
s 97 0958 

: 974 0959 

s 975 0960 

s 97 bees 

3; 97 96 

; 978 0962 1 
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-Sep-1 NML.SRCIJNMLPARPRM.B32; 


ZSBTTL "NMLSPRM_EVTSRCTYP Get event source type code' 
GLOBAL ROUTINE AMLSPRM_EVTSRCTYP = 


FUNCTIONAL DESCRIPTION: 


ne is an NPARSE action routine that saves the event source type 
code. 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NPARSE oath Og: to by AP) contains the parsed parameter data. 

NPASL is the parameter length. 
NPASL “FLDPTR is a pointer to the parameter in the received 
message buffer. 

IMPLICIT OUTPUTS: 
ROUTINE VALUE: 
COMPLETION CODES: 

Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 


NONE 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


Save the event source type code. 


NML$GB_EVTSRCTYP = .(.NPARSE B OCk CNPASL_FLDPTRJ)<0,8>; 
NMLS$GL"PRS_FLGS CNMLSV_ PRS_EVE 1; : Flag event parameter processed 


RETURN NML$_STS_SUC 
END; ! End of NMLSPRM_EVTSRCTYP 


0000 00000 ae NMLSPRM_EVTSRCTYP, Save nothin ng 
0000000G 00 14 f 90 00002 MOVB ags iN (NPARSE BLOCK), NMLSGB_EVTSRCTYP 
0000000G 00 58 QOOA BISB2 # NMLSGC_PRS _FLGS+ 1 

0 1 b? Opie MOVL #1, RO 
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; Routine Size: 21 bytes, Routine Base: S$CODE$ + 0259 
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CE Get event source descriptor -Sep-1 
: 3 1 ZSBTTL "NMLSPRM_EVTSOURCE Get event source descriptor’ 
; 1 2 ! GLOBAL ROUTINE AMLSPRM_EVTSOURCE = 
: 383 967 1 !+4¢ 
; 2 ¢ 359 ! FUNCTIONAL DESCRIPTION: 
; i : This is an NPARSE action routine that saves the event source id. 
: 9 972 1 | FORMAL PARAMETERS: 
3 389 975 1! 
: 990 974 1! NONE 
; 991 975 1! 
3 338 are 1 ! IMPLICIT INPUTS: 
; 99 977 1! 
; 994 144 z NPARSE BLOCK ipototed to by AP) contains the parsed parameter data. 
: 995 979 1! NPASL_FLDCNT is the parameter Length. 
; 996 80 1! NPASL_FLDPTR is a pointer to the parameter in the received 
; 997 949 1! message buffer. 
; 998 oes 1! 
; 999 985 1 ! IMPLICIT OUTPUTS: 
: 1000 984 1! 
: 1001 985 1! 
3 1006 986 1 ! ROUTINE VALUE: 
; 100 987 1 ! COMPLETION CODES: 
3; 1004 988 1! 
; 1005 0989 1! Always returns success (NML$_STS_SUC). 
: 1006 0990 1! 
: 1007 0991 1 ! SIDE EFFECTS: 
; 1008 3996 1! 
3; 1009 0993 1! NONE 
; 1010 0994 1! 
3 Ig 0995 : !e= 
3 1918 $999 BEGIN 
3; 1014 0998 
3: 1015 0999 $npa_argdef; ! Define NPARSE block reference 
3 1016 1000 
3 1017 1001 LOCAL 
; 1018 1908 addr : WORD, 
: 1019 100 namlen, 
; 1020 1004 namptr; 
; 196! 1005 ‘ 
3 } g oe : Save the event source string descriptor information. 
3 1034 1008 IF .nml$gb_evtsrctyp EQLU nma$c_ent_Lin 
3 19 5 44 On nal Sgd_evtsrctyp EQLU nma$c_ent_cir THEN 
: 10 $ 1011 nml$gq_evtsrcdsc CdscSu_tenge = 
; 19 8 I9i¢ .(.nparse Blogs neest{\éoted)<0.0; 
71 101 nml$gq_evtsrcdsc [Edsc 2-p0 nterl] = 
: 10 1014 -nparse_block (npa$l_fildptr] + 1; 
3; 1031 1015 END 
; 1938 ' 16 ELSE | 
3 1 1018 ' The event source is node. Save the node id. If the user specified 
3; 1035 191? ' the node name (rather than the node address), get the node's address 
: 1036 1020 ! from the DECnet node database. 


re ; : - 


F 10 | 
SPARPRM NML_NPARSE action routines for parsing paramete 16-Sep-1984 24:5 AX-11 Bliss-32 V4.0-74 P 4 
you~000 NMLSPRM_EVTSOURCE Get event source descriptor 1 30071382 9958637 NML ..SRCINMLPARPRM.B32; 290 


WAG 


1 : 
BEGIN 
IF “Eseperee block Cnpa$l_fldptr])<0,8> EQLU 0 THEN 


namlen = .(.nparse_block Cnpast, fldptr})<0.8>; 


namptr = .nparse_block Cnpasi_fldptr 


é 

0 BE 

1 nml$gq_evtsrcdsc (Cdsc$a_pointer] = 

§ . (.nparse ah na sg eh head H + 1)<0,16>; 

; nmi $fix_node_num Tnml$gq_evtsrcdsc Ldsc$a_pointerd); 
5 ELSE 

$ BEGIN 


Be Se Se Ge Fe Se Se Fe Ge Ge Fe Se Ge Se Se Ge Se Ge Se Ge Ge Se Se ee 
a — > a — 2 bs 1 = ts a 2) 4 a 
FUN" OOONOAUNE WN " OOONOULS WN 


=ININWNH BE BEEPS PML LL EE 


050 IF nml$getnodadr (.namlen, .namptr, addr) THEN 
991 3 ya nmi$gq_evtsrcdsc Cdsc$a_pointer] = .addr 
988 nml$error_2 (nma$c_sts_ide, nma$c_ent_nod); 
gee END; 
B28 04 nml$gq_evtsrcdsc Cdsc$w_length] = 0; 
05 04 END; 
828 04 
59 04 RETURN nml$_sts_suc 
060 04 END; ! End of NMLSPRM_EVTSOURCE 


0004 00000 .ENTRY NMLSPRM_EVTSOURCE, Save R2 > 0965 
52 000000006 00 i 90002 MOV NML$GQ_EVTSRCDSC+4, R2 ; 
5E 4 § 00 SUBL2 #4, SP ; 
50 000000006 00 9A 9000¢ MOVZ2BL NMLSGB_EVTSRCTYP, RO + 1008 
01 0 91 0001 CMPB SRO, #1 ; 
5 13 0016 BEQL si F 
03 0 91 0001 CMPB —s«RO, «#3 + 1009 
0c 12 00018 BNEQ : 
FC OA 14 BC 9B 0001D 1$: MOVZBW @20(NPARSE_BLOCK), NML$GQ_EVTSRCDSC : 1012 
62 14 AC or C1 000 ADDL3 #1, 20(NPARSE_BLOCK), NMLSGQ_EVTSRCDSC+4 =; 1014 
E 11 000 BRB 6$ : 1008 
50 14 AC 00 0029 2$: VL  20(NPARSE_BLOCK), RO + 1023 
60 95 0002D TSTB  —- (RO) F 
F 12 f NEQ 3$ 5 
62 01 Ag 3¢ 1 MOVZWL 1(RO), NML$GQ_EVTSRCDSC+4 : 1036 
52 DD 3 PUSH Re : 1027 
000000006 00 1 FB 0 CALLS #1, NMLSFIX_NODE_NUM : 
4 11 000 BRB 5$ : 10 3 
51 0 9A 00040 38: MOVZBL (RO)+, NAMLEN : 1031 
4001 F BB 0004 PUSHR #*M<RO6,SP> : 1034 
1 DD 0004 PUSHL NAM : 
000000006 00 03 FB 4 CALLS #3, NMLSGETNODADR : 
BLBC ; 
62 rf f MOV ZWL ADDR, NMLS$GQ_EVTSRCDSC+4 > 1035 
7 D4 4$: CLRL Ss > 1037 
43 0 CE A MNEGL #9, -(SP) : 
000000006 0 2 FB 0005D CALLS #2, NMLSERROR_2 : 


10 
mXSGIA™™ —ATLSPRAIGEGGAED t'antlesates'azseegene® AECRETOA ABSSSTE | ANBAMate ReMi BY OH 
FC OA 4 : CLRW NML$GQ_EVTSRCDSC 3:7 
oO BREE emg 1a 


; Routine Size: 107 bytes, Routine Base: SCODE$ + 026E 
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: 

: 
38 
Sz 
$3 


ZSBTTL "NMLSPRM_EVTCLASS Get event class code’ 
GLOBAL ROUTINE RMLSPRM_EVTCLASS = 


'e¢ 


FUNCTIONAL DESCRIPTION: 


uw 


This is @ NPARSE action routine that saves the event class 
information. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NPARSE _BLOCK spetoted to by AP) contains the parsed parameter data. 
NPASL_FLDCNT is the parameter Length. 
NPASL_FLDPTR is a pointer to the parameter in the received 
message buffer. 


IMPLICIT OUTPUTS: 


oe oe oe a oe ee a 


lojolololeolq) 


BREE Jato oR NS 


ROUTINE VALUE: 
COMPLETION CODES: 
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! Save the event class code (only the low 9 bits). 
NML$GW_EVTCLASS = .(.NPARSE_BLOCK CNPASL_FLDPTRJ)<0,9>; 


0 
O71 Always returns success (MMLS$_STS_SUC). 
O78 SIDE EFFECTS: 
074 
O36 075 NONE 
79 
5 , % 
447 3 BEGIN 
443 OB SNPA_ARGDEF ; ! Define NPARSE block reference 
4 
i 


a a a a ek ad ad a a = “a 8 ik a 1s a — 2 
Oe tt a a at a ss ts ss 8d sd ts a ts — 4 4 —  —  _ 
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8 RETURN NML$_STS_SUC 
3 END: ! End of NMLSPRM_EVTCLASS 
0000 -ENTRY WN Sen ENT CLASS Save nothing : 1088 
50 14 BC 9 0 EF EXT2ZV 40, #9, a20(NPARSE BLOCK), RO : 108 
000000006 0 80 MOVW RO, NMLSGW_EVTCLASS : 
1 p F MOVL #1. RO > 1087 
4 2 RET > 1089 
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Routine Size: 19 bytes, Routine Base: SCODES + 0209 


VOL=000 "ss WALSPRACEVTELASS” Get event class cous mere i See-tgg 93:60:75 ENR SRC WALPARPRN- B32: 1 Page 43) 


NAL 
vO4 
3 1 
sj 
3 | 
| 
| 
| 
$1 
3 1 
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SPARPRM SE action routines for parsing paramete 1be5e -1 :24:5 AX-11 Bliss-32 V4.0-74 Pa 8 NA 
yo%~000 -EVTMSKTYP Get event mesk type Code 1 =3007 1382 99°8633 YNML-SREINML PARPRM: B32: 9 435 vO 
211 1 1 ZSBTTL "NMLSPRM_EVIMSKTYP Get event mask type code’ : | 
: 1 1091 1 GLOBAL ROUTINE RALSPRM_EVIMSKIYE = + : | 
: 111 1 1 !44 é 
3 43) : ¢ ! FUNCTIONAL DESCRIPTION: : | 
3 tiie } } This is a NPARSE action routine that saves the event mask type code. 3 | 
111 1 1 | FORMAL PARAMETERS: 3 
; 19 1 1 i 3 | 
2 : 
; 1120 1106 | { IMPLICIT INPUTS: 3 | 
11 1104 1! NPARSE_BLOCK (pointed to by AP) contains the parsed parameter data. 3 | 
3 11 5 1105 1! NPASL_FLDCNT is the peroneter Length. . , ; | 
3 1126 1198 1: NPASL_FLDPTR is a pointer to the parameter in the received : | 
: 1 é 1108 ! } message buffer. & 
: 11 1109 1! IMPLICIT OUTPUTS: 3 
We uy : 
: 11 Wie 4 i ROUTINE VALUE: 3! 
: i 1 1332 : COMPLETION CODES: | 
3 | g 1332 ; ; Always returns success (NML$_STS_SUC). ; } 
: 1135 1117 | i Sie eFrects: 3! 
:11 Wig 1} 3 

3 11 111 1! NONE : 
3 43 1120 1! 3.1 
#) ne H 
3 1141 1138 BEGIN 3 | 
1148 1124 3 | 
3 1307 i 5 , _ SNPA_ARGDEF ; ! Define NPARSE block reference : | 
3 1145 5 Save the event mask type code. : 
; 1147 1 : "  NMLSGB_EVTMSKTYP = .(.NPARSE_BLOCK CNPASL_FLDPTRI)<6,2>; 3 
; 1148 1131 RETURN NML$_STS_SUC 3 | 

; 1151 1138 END; ! End of NMLSPRM_EVTMSKTYP 3 

0000 .ENTRY NMLSPRM_EVIMSKTYP, Save nothing : 1091 ; 

50 14 BC 6 F EXTZV a6, #2,~@20(NPARSE BLOCK), RO : 1129 : 

000000006 MOVB RO, NMLSGB_EVTMSKTYP : : 

1 3 F MOVL #1, RO ; 113] : 

12 RET ; 1133 é 


Routine Size: 19 bytes, Routine Base: S$CODE$ + O2EC 


VOL-000 " —sNALSPRACEVIRSKTNP “Get event mask type Coden” ibe 19h 93:86:73 ERMC Se IWALPARPRN- B30: Page 43) 


Pp 


24 
: 
3 
> 
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RSE action routines for parsing paramet 18-5 -1984 00:24:5 AX-11 Bliss-32 V4.0-74 P 
REVTRAR Get Gvent meskes Cer emete Peon ohe $5:86:4 ENMU SREIWMEPARPKM: B32, 29 08) 


ZSBTTL "NMLSPRM_EVTMASK Get event mask’ 
GLOBAL ROUTINE RMLSPRM_EVTMASK = 
1 


'e¢ 
} FUNCTIONAL DESCRIPTION: 


g 
a8 
Sz 


PIADNAIEPRPIPOPOPDPOPIPONIMOPDPOPOPOPIPIPIPINIIA 8 a at a tt tn st tt tt tt tt tt tt tt tt 4 
. - - 


; This is a NPARSE action routine that saves the event mask. 
FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

i NPARSE_ BLOCK spototed to by AP) contains the parsed parameter data. 
: NPASL_FLDCNT is the parameter Length. 

; NPASL_FLDPTR is a pointer to the parameter in the received 
message buffer. 

IMPLICIT OUTPUTS: 

‘ 

' ROUTINE VALUE: 

: COMPLETION CODES: 

Always returns success (NML$_STS_SUC). 

SIDE EFFECTS: 

i 

i 

i 


ed 2 a a ts — t,t a 8 a te 


SELEARENVLSSSLESLAV LS SEVEAEANLSSSNSARANSSSSLFEAFERISSSISEAEA 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 


LOCAL 
STATUS; ' Return status 


Save the event mask descriptor information. 


NML$GQ_EVTMSKDSC CDSCSW Lenetn? = 
. CNPARSE_BLOCK CNPASL_FLDPTRJ)<0,8>; 


NMLS$GQ_EVTMSKDSC CDSCSA_POINTER) = 
-NPARSE_BLOCK CNPASC_FLDPTR] + 1; 


If the event mask is all zeroes then it is not valid. 
STATUS = NMLS$_STS_PVA; 
pen | tome 0 TO .NMLSGOQ_EVTMSKDSC COSC$W_LENGTH] - 1 DC 


me ee ee ee a ee a a ek et et od = ad = = dd 
cm ee el me em em me ed A at dk td od = od = = = = =o = = 2 2 = 
ee a ee ee ek et ed ed ed td = wd dd dd 8 od ed St 3 SS 8 SS 8 2 


VSS SSP SS sSNA SSS AD A ee NE te SR Ne ry 
oo MEW 0 OONOULS WN "O00 MEW 0 OONOUS WN) $0 OOVOUS Wh" OOO Ww 


OF 0g MAL OO_EV TONED SE COSCSA_POINTER] + .1)<0,8> NEQ 0 


m 10 
SPARPRM NML_NPARSE action routines for parsing paramete 16-Sep-1984 00:24:5 AX-11 Bliss-32 v4.0-74 Pp 41 
yO%~000 NMLSPRM_EVTMASK Get event mask 7? 1 730071 38e 9958637 ENML.SRE NMLPARPRM.B32; ey 
: 1 19 i 1 é BEGIN 
: 121 11 : 4 STATUS = NML$_STS_SUC; 
: 121 1194 4 EXITLOOP; 
: 121 1195 4 
: 1215 1196 END; 
: 1519 1198 53 -_ 
: } + 1139 If an error is detected then return an invalid parameter value error. 
; 9 Bf "IF NOT .STATUS 
: i ¢ i 08 NMLSERROR_2 (NMASC_STS_PVA, NMASC_PCLO_EVE); 
; 4 05 RETURN .STATUS 
> 1226 1 89 END; ! End of NMLSPRM_EVTMASK 
“ 
- 001¢ 00000 .ENTRY NMLSPRM_EVTMASK, Save R2,R3,R4 : 
54 000000006 00 9€ 9002 VAB Ns $GQ EVTMSKDSC, R : 
64 14 BC 9B 0000 WOvZeu @20(NPARSE BLOCKS, NML$GQ_EVTMSKDSC F 
06 «AG 14 AC 01 C1 9900 DL3 #1, 20(NPARSE_BLOCK), NMLSGQ_EVTMSKDSC+4 =: 
§ 20 ge 001 MNEGL #32 ; 
52 64 3¢ 0016 MOVZWL NML$GQ_EVTMSKDSC, R2 
51 ot CE 991 MNEGL #1, I ; 
E 11 0001C BRB : 
50 04 AG p 901 1$ MOVL NAL $GQ EVTMSKDSC+4, RO : 
6140 0 TSTB = CI) CROJ ; 
93 13 000 BEQL 2$ : 
53 1 00 00027 MOVL #1, STATUS ; 
94 11 0002A BRB 3 : 
EE 51 : Fg 002C 38 AOBLSS R2, 1 ; 
Oe 5 3 0030 3$ BLBS STATUS, 4$ : 
E c9 BF 9A 000 : MOVZBL #201, -(SP) ; 
7E 10 CE 000 MNEGL #16, -(SP ; 
000000006 00 08 FB OOO3A CALLS #2, NMLSERROR_2 ; 
50 b0 9041 4$: MOVL STATUS, RO F 


; Routine Size: 69 bytes, Routine Base: SCODES + O2FF 


osnnare 


Se Se Fe Gs Ge Se Se Ge Se Ge Se Se Ge Fe Ge Se Ge Ge Ge Gs Ge Ge Ge Se Se Ge Ge Se Ge Fe Se Se Ge Ss Se Se Ge Se Ge Ge Fe Se Se Se Se Sees 


me a a kk ak a a a a ek ad td 8 8 od ot = = = a a Las 9 3 
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NML_NPARSE action routines for parsing paramete 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-74 
NMLSPRM_CHKEVE Check for event perene er 13-308-1382 9958033 ENML.SRE NMLPARPRM.B32; 
1 ZSBTTL "NMLSPRM_ CHKEVE (Check for event parameter’ 
GLOBAL ROUTINE RMLSPRM_CHKEVE = 
lee 
FUNCTIONAL DESCRIPTION: 


This is a NPARSE action routine that checks for the presence 
of the event parameter. 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NPARSE _BLOCK 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns NML$_STS_SUC. 
SIDE EFFECTS: 


BES BWW NWI WIWIWIINRONONOPONONONNI NN SS 


PVN COONAN WN O ODNAU EWN (OOD NOUE WN (OODVNOUS W000 


a a a a ed dd dd 
=PIPIPIPIPIPIPIPPININIPINPAI a nd st st st st tt tt tk tk tt tt a 


BEGIN 
SNPA_ARGDEF ; ! Define NPARSE block reference 
i If this is the event filter (EFI) parameter group and no event logging 
r : parameter has been specified then return a parameter missing error. 
4 IF .NMLSGL_PRS_FLGS pwn. SY PRS_EF IPG) 
" + Ma eNALSGC_PRS_FLGS CAMLSO_PRS_EVE] 
4 NMLSERROR_2 (NMASC_STS_PMS 
2 NMASC~PCLO_EVE); 
RETURN NML$_STS_SUC 
$3 END; ! End of NMLSPRM_CHKEVE 
0000 £008 ENTRY NMLSPRM_CHKEVE, Save nothing 
16 sit ih 4 $43 0 3 E1 00002 BBC Hg NMLSGL_PRS_FLGS+1, 1$ 
OE 000000006 00 0 OA BBS #5, NMLSGL_PRS_FLGS+1, 1$ 
E c9 «BF OSA Fi MOVZBL wohl, =(SPJ 
7E D CE 1 MNEGL #29, =(SP) 


P 4 
age 345 


ee et et 


WTLSEABPIN ML AOARGE aes Ton rouse for parsing peranete 1E-bea-16s 00:24:98 YAKTL OL UaeeHZ M0524 race A} 
eoceeenNs 9p BT ES RS va, GS: EON t 198 
ba RET : 158% 


; Routine Size: 36 bytes, Routine Base: $CODES + 0344 


11 
SPARPRA NML NPARSE actio tines f i t 16- -1984 24:5 AX-11 iss- 4.0-74 
voL~000 CHOBE Check and save node parameter 1e-Sepe198¢ 45:80:75  ENML-SREINMEPARPRM:o3044 Page 35 


NMLSPRM_SAVE_NODE Check and save node parameter 14-Sep- (22) 
> 127 1255 1 ZSBTTL ‘NMLSPRM_SAVE_NODE Check and save node parameter' 
; : rt } 8 ! GLOBAL ROUTINE AMLSPRM_SAVE_NODE = . 
3 1 i 1 8 1 !e+ 
: } rs } 23 : FUNCTIONAL DESCRIPTION: 
: 128 1261 1! This is a NPARSE action that checks a node id for validity. 
; 128 1 $6 1! Some node parameters are saved in the DECnet databases as a node 
: 1284 1265 1! address. If the node is specified by name and no agp igen oe 
3 : 85 } rf: } address can be found in the data base then an error is returned. 
3 3 ey 1 4] 1 ! FORMAL PARAMETERS: 
; 1288 1267 1! 
3; 1289 1268 1! NONE 
: 1290 1 +4 1! 
3 | 4 : A : IMPLICIT INPUTS: 
3 1338 1272 1! NPARSE_BLOCK CNPASL_FLDPTR] contains the pointer to the entity 
> 1294 1273 1! format code and id string. 
3; 1295 1274 1! 
: 1296 1275 1°! IMPLICIT OUTPUTS: 
3: 1297 1276 1! 
: 1298 1277 1! NONE 
3 94 1278 1! 
3; 1300 1279 1 ! ROUTINE VALUE: 
3; 1301 1280 1 ! COMPLETION CODES: 
3 1306 \se) 1! 
; 130 1 Ss 1! Always returns success (NML$_STS_SUC). 
3 1304 1283 1! 
; 1392 1284 | ' SIDE EFFECTS: 
3: 1306 1285 ! 
: 1307 1286 1! If the host node id is invalid then an invalid identification format 
3; 1308 et 1: error (NML$_STS_IDE) will be signalled. 
3; 1309 1288 1! 
; 1310 168) 1 !e- 
3 1311 1290 1 
3 1316 1291 BEGIN 
3 131 1 3 
3 1314 129 $npa_argdef; ! Define NPARSE block reference 
; 131? 1294 
3 1316 1295 
3; 1317 1296 node_addr : WORD; 
3: 1318 1297 
3; 1319 1298 LOCAL 
3; 1320 1299 Length, 
3; 1321 1300 addr; 
3; 7 ¢ 1301 
3 1 1 4 } 
3 1324 130 ! The NODE ADDRESS parameter is never specified as a name, and therefore, 
3 ! 36 ! be its NICE parameter type is a word. 
3; 1 $ 1 06 IF ‘nperee_pieck Cnpa$l_param] EQL nml$c_node_num_param THEN | 
: 1328 130 BEGIN 
3: 1329 1 be Length = 0; 
3; 1350 1309 addr = .nparse_block (Cnpa$l_fldptr]; 
3 1331 1 19 END 
; 1332 131 ELSE 
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NMLSPARPRA NML_NPARSE action routines for parsing paramete 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-74 Page 45 

v04-000 NMLSPRM_SAVE_NODE Check and Save node pereneter 1228057138 99:85:78 NML.SRC NALPARPRM 83061 . (22) 

: 1333 131 : > 
3% 1 18 ! Other node parameters are saved in address form, but can be apes itted ; 
; 1335 1314 ; by either the name or the address. So the NICE format is node-id. ‘ 
3 (1 1315 ! If leading byte of the parameter (the length) is a 0, the user typed a ‘ 
; 1 1 1§ ! node address rather than counted node name string. Get the Length and ’ 
; : : : : ; address of the node parameter. ‘ 
: 1340 1319 BEGIN ; 
: 1341 1320 Length = .(.nparse_block proast. fldper 3) <0,8>: ! Get length ‘ 
3 1 ¢ 1321 addr = .nparse_block (npa$l_fidptr] + 1; 
ier tee i Se : 
3 1345 1324 i If Length is zero then id is a node address, otherwise it is a counted ; 
: ; $ : 5 ; node name string. ‘ 
: 1348 1359 5 ir -Length EQL 0 THEN ; 
3; 1349 1328 BEGIN ; 
; ; 29 ! , node_addr = .(.addr)<0,16>; ‘ 
31 2g 1331 i If the node area was specified as zero, chenge to to 1 (if NCP ; 
; 135 1 3 ! is a Phase IV NCP) or the executor’s area (if NCP is a Phase III ‘ 
; } 33 1334 beex : 
> 1356 1335 nml$fix_node_num (node_addr); ; 
1388 1337 3 ELSE 
: 1338 He i 
; : it a 1 the node database to get it's address. ; 
: 136 134 BEGIN 3 
3 1364 1 rk IF NOT nml$getnodadr (.length, .addr, node_addr) THEN : 
; 1365 1344 nml$error_2 (nma$c_sts_ide, nma$c_ent_nod); ; 
3 1367 1346 , END: ; 
: ; 3 } 43 Save the node address parameter. ; 
; i 70 1365 nml$saveparam (.nml$gl_prmcode, 2, node_addr); : 
:1 Le 1351 nml$gl_prmcode = 0; ! Reset parameter code ; 
: 137 1338 RETURN’ nmL$_sts_suc ‘ 
: 1374 135 END; ! End of NMLSPRM_SAVE_NODE : 


-PSECT SOWNS,NOEXE,2 


006000 NODE _ADDR: 
-BLKB 2 


~PSECT S$CODES,NOWRT,2 
Path NMLSPRM_SAVE NODE, Save R2,R5 : 1256 


ce ae ae ee at 3 


cuintiniienieesainienoentasootinitine it 


NML_NPARSE action routines for parsing paramete 1 £-5e0-1984 99: 86:3 AX-11 Bliss-32 V4.0-74 Page 46 


NAL SPARPRM 
v04-000 


NMLSPRM_SAVE_NODE Check and save node aT 14-Sep-1 NML.SRCINMLPARPRM.B32; (22) 
20 6 i sth $2 (NPARSE BLOCK) ; 1306 
g 1 CLRL ENGTH + 1308 
50 14 AC HY 1? BOVE (NPARSE_BLOCK), ADDR : 09 
51 14 f 9a 00010 1$: MOVZBL reson BLOCK), LENGTH +1 6 
50 14 AC C1 1 ADD! 20 (NPARSE BLOCK), ADDR + 1321 
1 f $ 2$: iste : 1327 
62 $$ 80 A Rov (ADDR), NODE_ADDR : 1329 
000000006 00 9 Fe 9 f CALLS #1, NMLSFIX_NODE_NUM : 
A 1 BRB t 1327 
gi pe Sagas puaae feneng Re ey 
000000006 00 50 FB O05 CALLS ‘ NBL SGETNODADR : 
: Cah eT ee eee Gow 
000000006 00 : FB 0048 CALLS ; NMLSERROR_2 : 
DD 00052 4$: PUSHL : 1349 
4 BD Ee PUSH NAL SL PRMCODE ; 
000000006 00 03 FB 00038 CALLS NAICS SAVE PARAM : 
63 04 0005F CLRL Misc P RMCODE + 1351 
50 01 00 00061 MOVL #1, R : 1338 
04 00064 RET + 135 


; Routine Size: 101 bytes, Routine Base: SCODES + 0368 
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NML_NPARSE action routines for parsing paramete 1 1984 4: AX-11 iss- 4.0-74 
NMLSPRM_SET_NET Set K25-Protocol netuork 1D. 16: seo 4 933853? BNA PARPAN 932 Page 445 


SESSSSSSS 
SRIEARAVLSSSLSSLLSLSS 


ba a et tt 


M—OOONOA VUE WH —“OVOONOUES WN Oo 


APRANVLSSSLSARANLSSS 


POPU IWIN WWW WWI WII AIA IR RPOPOPOPPUPINIPUIIIIID 2 at tt 


ee a a ee ee ee De ce ce ce ee ed ee ae ee ee ed ed ee 
a ee ee ee ee en ee eS SS 


Fy oF oF oF ot of ot ot ot ot at at ae ee ee 
SELLE LEE 


_ 
o 


-Sep-1984 


ZSBTTL "NMLS°RM SET_NET i ghz Pretest network ID‘ 
GLOBAL ROUTINE RMLSPRM_SET_ 


'e4¢ 
i FUNCTIONAL DESCRIPTION: 
This is a NPARSE + psy foutioe that is Eas tee - y when NML 


NML..SRCJNMLPARPRM.B32; 


gets a nice ,pommene of T X25=PROTOCOL NET d>. In this 
case only, the entity 1B passed to the ACP onet ibe’ re network 
name. In all other cases, ee network ID is a Length string 
to indicate the currently ve network. Set i 5 PROT COL NET 


| 
is used to specify the active network in the first place. 
IMPLICIT INPUTS: 


NPARSE mn cchetoted to by AP) contains the parsed parameter data. 
NPASL is the parameter Length. 
NPASL™ FLDPTR, is : _potater to the parameter in the received 


e bu 
NMLSGL prarcee contains the index into the change parameter table 
(NALSAB_CPTABLE). 


ROUTINE VALUE: 
COMPLETION CODES: 
Always returns NML$_STS_SUC. 


BEGIN 
MAP 
NMLSGB_OPTIONS : BBLOCK (1); 


The garter ie ID yee aireedy been set up to be the active network 
(NML$GB aGnt} FORMAT = 0) during initial parsing. , 50. if -_ — 
command is DEFINE. leave things as they are. If it's a SET, 

the network name off the parameter stack and save ft as the oneley ID 
for the Q10 P2 buffer. 


iF "BEG Ww see, OPTIONS CNMASV_OPT_PER] THEN 


Back up to the network parameter. This pops the network parameter 
} off the parameter stack. 


NML$GW_PRMDESCNT = .NMLSGW_PRMDESCNT - 1; 
Move the network ID to the entity ID globals. 
Ma $GB_ENTITY_FORMAT = NAL SAU PRM_DES C.NMLSGW_PRMDESCNT, PDBS$W_COUNT); 
VE (.NMLSGB ENTITY ORMAT> 
mADES. C. = HL Su PRMDESCNT, PDBSA_POINTER), 
on NML AB” MENTITY I 


RETURN NML$_STS_SUC 


52 


VOU=000  —NALSPRACSET-NEI” Set KoSsProtocot nersore De” iets Sep-19be 19:50:15 ENML-SREINALPARPRN: B32; novel 


; 1433 1411 1 END; ! End of NMLSPRM_SET_NET 


OOFC ENTRY wn are SET_NET Save e RR, R3,R4,RS,R6,R7 : 1355 

57 MOVAB ENTITY FORMA : 

6 VABsONMIL GUTPRMDESENT. RO’ : 
1 TSTB = NMLS$GB-OPTIONS + 1393 

a. 1 iss 1$ ; 
1 ECW § NMLSGW_PRMDESCNT : 1399 
50 C OOO1A MOVZWL NMLSGW7PRMDESCNT, R + 1403 

0000000060040 7F 0001D PUSHAG NMLSAW-PRM_DES+2(RO F 

67 i 0 90 4 MOVB a(SP)+> NMC$GB_ENTITY_FORMAT : 
1 67 9A 00027 MOVZ2BL NMLS$GB_ENTITY_FORMAT,~R1 + 1404 
0000000060040 7F OO002A PUSHAG NMLSAWPRM_DES+4(RO] + 1405 

50 9E 9 0031 MOVL a(SP)+ RO™ ; 
000000006 00 60 51 00 MOVC3 , (RO), NMLSAB_ENTITY_ID + 1404 
50 01 00 0003c 18: MOVL ie RO + 1409 
04 0003F RET + 1411 


; Routine Size: 64 bytes, Routine Base: S$CODE$ + 03CD 


S% 


H 11 
GPAQPRM PARSE action routines for parsing pa-amete 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-74 o 49 
VOL~000 RM_QUAL_FORMAT Check x35-Protocel’ Group D 13-88-1382 90:86:38 YNML SRE NMLPARPRM_B32: 29° 4) 


ZSBTTL ‘NMLSPRM_QUAL_FORMAT Check X25-Protocol Group DTE format’ 
GLOBAL ROUTINE RMLSPRM_QUAL_FORMAT = 
' 


‘4 
! FUNCTIONAL DESCRIPTION: 
! This NPARSE act 


BORGER 


sa ion cougine that is called only when NML 
ets a NICE SET/DEFINE X25 PROTOCOL GROUP command. 
n this case some ps phe. commands are illegal, because 
with groups, you must a wey? set OTE, number. and type 
together. Also, the same DTE will have different group numbers in 
thd 5 shag groups but DTEs in the same group must have the same group 


IMPLICIT INPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
: NPARSE_BLOCK (pointed to by AP) contains the parsed parameter data. 
‘ NPASL_FLDCNT is the parameter Length. 

; NPASL_FLDPTR is a pointer to the parameter in the received 
1 message buffer. 

i 

i 

i 

ie 


ROUTINE VALUE: 
COMPLETION CODES: 


Sk ek al ek ae Sek Sek Sek ak ek lal Ua lata tal al al el te tk 


PPA BE BE EE EE 


OWONAOVLS WO OONOUE WO 


BEGIN 


NML$GB_OPTIONS : BBLOCK (1); 
i If KNOWN GROUPS allow onl 
GROUP 


EE 
ARAWLS 


a a a a ak ik ad ak a at ot = a 2 2 2 2 8 


AE EEE BUPROPION IW EWE ARRON = 


66 i SET KNOWN S KNOWN DTES ALL or 
re SET KNOWN GROUPS ALL 
469 if -NALSGB_ENTITY_FORMAT LEQ 0 THEN ! If KNOWN groups and 
471 IF (.NMLS$GB_OPTIONS CNMASV_OPT_PER] OR ! mot SET ALL 
$7 -NMLSGL_PRS eL GS CNALSV-PRS_ALL]) gr ' or 
47 (.NMLSGL_PRS_FLGS CNMLSV_PRS QUALIFIER AND ! DTE nnnn 
474 -NML$GB-QUACIFIER FORMAT GTR 0) THEN 
475 RETURN RML$_STS_IDE; ! Error. 
476 ND 
47 ELSE 
138 i Ifas ific gro allow on 
: ec rou Ow 
4 i SET/DEF INE GROUP FRED DTE $$%4.44555666 NUM 3... or 
481 i SET/DEFINE GROUP FRED ALL 
4 i SET/DEFINE GROUP FRED KNOWN DTES ALL 
4 BEGIN 
485 IF .NMLSGB_ENTITY_FORMAT GTR 0 THEN 
4 BEGIN 
6 4 i SET/DEFINE X25-PROTOCOL GROUP FRED KNOWN DTES ALL - is illegal. 
4 iF .NMLSGL_PRS_FLGS CNMLSV_PRS_ALL] AND 
491 (.NMLSGC_PRS_FLGS CNMLSU_PRS_QUALIFIER] AND 


Se Os Oe ee ee eeere 

—> i) 4) tt 

BPEL EE 
SRES 


; Routine Size: 


—y NPARSE action routines {gr parsing perencte 1 15-Sep-1984 99: $63 AX-11 Bliss-32 V4.0-74 


SPRM_QUAL_FORMAT Check X rotocol Group D 14-Sep- NML . SRCINMLPARPRM.B32; 
14 4 -NML$GB_QUALIFIER_FORMAT LEQ 0) THEN 
1299 RETURN ines _5TS_IDE; 
1306 
147 
Vere RETURN wai: STS_SuUC; 
1476 ! End of NMLSPRM_QUAL_FORMAT 


OoRe 0 eENTRY WNMLSPRM_QUAL_FORMAT, Save age’ R3 
00000006 E 0000 V NML$GB_OU AL IFIER. FORMAT, 
00000006 9E 9 MOVAB NMLSGL"PRS FLGS,~R 
00000006 9A 019 MOVZBL NML$GB-ENTITY_FORMAT, RO 
000000006 06 93 9019 ise im OPTIONS 
16 62 1 E1 00021 BBC , NMLSGL_PRS_FLGS, 28 
16 5 Ei 0025 BBC #2" NML$GL~PRS-FLGS, 3$ 
6 3 0029 TSTB NMLS$GB_QUACIFIER_FORMAT 
12 13 00028 BEQL i 
o¢ 11 0002 BRB 
0c 62 1 €1 O0002F 1$: BBC NAL SGL _PRS_FLGS, 3$ 
08 a 0¢ é] 0033 BBC fa A NALSGL PRS-FLGS, 3$ 
63 95 00037 TSTB _QUACIF IER_FORMAT 
04 12 00039 BNEQ ts 
50 12 CE 00038 2$ MNEGL #18, RO 
04 0003€ RET 
50 01 DO O003F 38 MOVL #1, RO 
04 00042 RET 


67 bytes, Routine Base: SCODES + 040D 
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a 


IF NOT .NMLSGL_PRS_FLGS CNMLSV_PRS_CHANNELS) THEN 


' 
i This is the first channel range in the NICE SET command. Set 
!' up the parameter descriptor List to accumulate all the channel 
: renges n a string which is how it must be passed to the PSI 


MAAN 


NOw 


11 
NML_NPARSE action routines for parsing paramete tose -1984 00:24:5 AX-11 Bliss-32 V4.0-74 Pa 1 
NMLSPRM_CHANNELS Check parameter value” 1 7300-1382 9958637 ENAL . SRC NMLPARPRM.B32; 9 28) 
: 1501 1477 1 ZSBTTL "NMLSPRM_CHANNELS Check parameter value’ 
4 oe 1478 1 GLOBAL ROUTINE RMLSPRM_CHANNELS © nage 
i] 1883 | ve 
3 he 
$ ; 5 1? ; FUNCTIONAL DESCRIPTION: 
: 1 14 § 1 | The X-25 Protocol DTE parameter, channels, is passed by NCP in the form of 
3 3 4 14 1! pereserer id, channel pair, parameter id, channel pair... 
: ; 8 1? 5 \ t must be converted to a string. Accumulate the string here. 
: 1511 1487 1! 
: 1 \§ 14 1 ! FORMAL PARAMETERS: 
; 151 14 1! 
: i818 149) 1 | a 
; 1g 149¢ { IMPLICIT INPUTS: 
; 1518 1494 1! NPARSE BLOCK spetotes to by AP) contains the parsed parameter data. 
; 1519 1495 1! NPASL_FLOCNT is the parameter Length. 
; 1520 ioe 1! NPASL_FLDPTR is a pointer to the parameter in the received 
: 13 1 1497 1! esesege buffer. 
3 1 ¢ 1498 1! NMLSGL_PRMCODE contains the index into the change parameter table 
; 13 ; 1499 ; (NALSAB_CPTABLE) . 
: 1329 1301 { IMPLICIT OUTPUTS: 
: i $ 1208 1 If the parameter is valid then a descriptor entry will be created for 
: 1 ; 1388 ' it in NMLSAW_PRM_DES and NMLS$GW_PRMDESCNT will be incremented. 
; 13 1306 1 | ROUTINE VALUE: 
; 13 1 120% : COMPLETION CODES: 
: 3 5 129) ; Always returns NML$_STS_SUC. 
> 1535 1311 1 | SIDE EFFECTS: 
3 1 1 \¢ . | 
> 151 1 !-- 
31 1514 1 
3 1373 ta BEGIN 
; 1341 1317 SNPA_ARGDEF ; ! Define NPARSE block reference 
: 1308 1319 LITERAL CHAN_STR_SIZE = 80; 
i ig 
: 1346 1 § INDEX ! Parameter stack index for channels entry. 
3 134 13 ; CHANNEL_STRING: BBLOCK CCHAN_STR_SIZE); 
: 1348 1525 2 LOCAL 
3; 1550 1 $ COUNT; 
£4833 : 
21 § 1859 
3; 1554 1530 
i] 1333 
31 1 § 
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K 11 
routines for parsing paramete 16-Sep-19 24:5 Ax-11 iss-32 V4.0-74 
Check paraneter hy Bg 12-808=1 38 90:85:98 YNML SRE Wi pakPkn e530. 


BEGIN 
NMLSGL_PRS_FLGS CNMLSV_PRS_CHANNELS] = 1; 


i Save the index into the parameter descriptor stack in order to add 
! the Length of later channel pairs. Then add the descriptor entry 
; for channels to the stack. 


INDEX = .NMLSGW_PRMDESCNT; 
NAL SSAVEPARAM (TNMLSGL_PRMCODE, 0, CHANNEL_STRING); 


Make sure the number of pone) pairs in the NICE message isn't overflowing 
the internal channel string buffer. 


ime ror 


OUNT = .NMLSAW PRM_DES C.INDEX, PDBSW_COUNT); 
F .CQUNT GEQ CRAN STR_SIZE THEN 
NMLSERROR_2 (NMASC"STS PLO, 
NMASC"PCXP_CHN) ; 


! Move the channel pair to the end of the Serine of channel pairs. Then 
: increment the string length in the parameter descriptor stack. 


CHANNEL_STRING [.COUNT,0,32,0) = ..NPARSE_BLOCK CNPASL_FLDPTRI: 
NMLSAW_PRM_DES C.INDEX, PDBSw_COUNT] = .COUNT + .NPARSE_BLOCK CNPASL_FLDCNTI; 


NMLSGL_PRMCODE = 0; ! Reset parsing code 
RETURN NML$_STS_SUC 
END; ! End of NMLSPRM_CHANNELS 


-PSECT SOWNS,NOEXE,2 


0002 -BLK 2 

0004 INDEX: <BLKB 4 

0008 CHANNEL_STRING: 
-BLKB 80 


~PSECT SCODES,NOWRT,2 


003C 00 -ENTRY NMLSPRM CHANNELS. Save R2,R3,R4,R5 
5 G 9E 0000 MOVAB NMLSAW_PRM_DES+2. R 
4 G 3 MOVAB NMLSGL“PRMCODE, R4 
g 19 MOVAB INDEX, ~R 
1 6 1 BLBS NMLSGL_PRS_FLGS+1, 1$ 
000000006 3 BISB2 #1, NMCSGL~PRS FLGS+1 
é 000000906 C MOVZWL NMLSGW PRMDESCAT, INDEX 
4 ad OF c PUSHAB CHANNEC_STRING 
7E D4 F CLRL = 
64 DD 00031 PUSHL  NMLSGL_PRMCODE 
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SPARPRM NML _NPARSE action routines for parsing paramete 1b-5 Sep-1984 AX-11 Bliss-32 Vv4.0-7 Page 53 
VO%~000 NMLSPRM_CHANNELS Check parenetor value” at 7 99: $4 23 NML .SRC NALPARPRNB3e; . (283 
000000006 98 fe 3 CALLS a3 te oie 3 
A 1$: MOVL INDEX. R + 1550 
65 F 43 A nay NAL SA) 17" ieee : 
00000050 a : ‘ 4 CMPL T, a + 1551 
F 19 4A BLSS 3 
046A F C of MOVZWL #4150. (SP) : 1552 
43 7 CE MNEGL ( sean 3 
000000006 0 06 FB 4 CALLS NML$ Ree : 
04 A342 OF B 2S: PUSHAB CHANNEL STRAIN NGLCOUNT : 1559 
43 8 4 SF MOVL 820 (NPARSE BLOCK), a(SP)+ 3 
5 6 p $8 MOVL INDEX R : 1560 
65 F PUSHAQ AW_PRM_DES+2CROJ 3 
OE 52 10 ac al B86 ADDW TS(NPARSE aesock COUNT, a(SP)+ ; 
6° 04 : CLRL ve GL APR : 1562 
50 1 90 000 MOVL 3: 1564 
04 0007 RET : 1566 


; Routine Size: 116 bytes, Routine Base: S$CODES + 0450 


3; 1591 1362 1 

3; 159 1568 1 

3; 159 1569 1 

3: 1594 1570 1 END ! End of module 

3; 1595 1571 1 

3: 1596 1572 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

; SCODES ae Ne mover’ NOWRT, RD, EXE,NOSHR, LCL, REL, COM NOP TE At TENS g 
: SPLITS NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 WOES WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Fas Beal ae eee ee Symbols -------- Pages Processing 
, File Total Loaded Percent Mapped Time 

$ _$255$DUA28:CNML.OBJINMLLI 41 39 11 27 0:00.1 
; $5338DUA : (SHRLIB NRALTBRY< tsi -4 87 17 1 47 9:00.¢ 
3 _$255$DUA28:CSYSLIBIJSTARLET.L 9776 2 0 581 702. 


411 

SPARPRM NML_NPARSE action routines for parsing paramete 16-Sep-1984 124: Ax-11 iss-32 V4.0-74 P 4 NM 
yO4~000 NALSPRM. CHANNELS, Check parameter valce™ 1$-880-}382 99:85:32 PANT EaBS NSP aRpan:O3564 age 335 vo 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:NMLPARPRM/OBJ=OBJ$:NMLPARPRM MSRC$:NMLPARPRM/UPDATE=(ENHS : NMLPARPRM) 
3; Size: 1220 ¢ ge + 91 data bytes 
3; Run Time: : ‘J 
3 Elapsed Time: :05. 
3 Lines/CPU Min: 4 g 
3 Lexemes/CPU-Min: 119 


ry Used: 163 pages 
Compitation Completes 
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